home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / lcsrc.arc / CRT_CLS.ASM < prev    next >
Assembly Source File  |  1980-01-01  |  1KB  |  69 lines
  1.  
  2.  
  3.  
  4.  
  5. ;---------------------------------------------------------------
  6. ;
  7. ; name        crt_cls - clear screen using BIOS scroll up call
  8. ;
  9. ; synopsis     VOID    crt_cls()
  10. ;
  11. ;
  12. ; description    This function clears your 80 x 24 screen using the
  13. ;        BIOS scroll up function.  For graphics uses, you
  14. ;        should use crt_scrollu with the appropriate 
  15. ;        background attribute - crt_cls assumes text mode.
  16. ;
  17. ;
  18. ; notes        This routine works only on the currently selected 
  19. ;        (active) page.  It uses the "normal" (07) attribute
  20. ;        on scrolled lines.  Unlike the CI-C86 function with
  21. ;        the same name, it does not home the cursor.   
  22. ;
  23. ;--------------------------------------------------------------
  24.  
  25.     include    dos.mac
  26.  
  27. video    equ    10h        ; video interrupt number
  28.  
  29.  
  30.     IF    LPROG
  31. X    EQU    6        ;OFFSET OF ARGUMENTS
  32.     ELSE
  33. X    EQU    4        ;OFFSET OF ARGUMENTS
  34.     ENDIF
  35.  
  36.     PSEG
  37.  
  38.  
  39.     PUBLIC    crt_cls
  40.  
  41.  
  42.     IF    LPROG
  43. crt_cls    PROC    FAR
  44.     ELSE
  45. crt_cls    PROC    NEAR
  46.     ENDIF
  47.  
  48.  
  49.     push    bp
  50.     mov    ax,0600h
  51.     mov    bx,7
  52.     xor    cx,cx
  53.     mov    dh,25
  54.     mov    dl,80
  55.     int    video
  56.     pop    bp
  57.     ret
  58.  
  59.  
  60. crt_cls    ENDP
  61.  
  62.  
  63.     endps
  64.     end
  65.  
  66.  
  67.  
  68.  
  69.